open(BUFF,"file");
open(WRBUFF,">outfile");
#$line=<BUFF>;
while($line=<BUFF>)
{
	chomp($line);
	$sys = "awk '{if(".'$3'." > 0.1)print ".'$0'."}' $line|wc -l >file_gt0.1";
	#print $sys."\n";
	system("$sys");
	open(BUF,"file_gt0.1");
	$first=<BUF>;
	$first = (($first-2)/906602)*100;
        #print $sys."\n";
	$sys = "awk '{if(".'$3'." > 0.2)print ".'$0'."}' $line|wc -l >file_gt0.1";
        system("$sys");
        open(BUF,"file_gt0.1");
	$sfirst=<BUF>;
        $sfirst = (($sfirst-2)/906602)*100;
	print WRBUFF $line."\t".$first."\t"."$sfirst\n";
	#print $line."\n";
}
